﻿Module Module1

    Sub Main()

        Dim rslt As List(Of RWN.Entity.BankItem) = RWN.DL.Bank.AllBank

        For Each r As RWN.Entity.BankItem In rslt

            Console.WriteLine(r.bank_id)

        Next


        Console.ReadKey()

    End Sub

End Module
